home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
GRAPHICS
/
IMGLIB95
/
U_P_SIZE.PA_
/
U_P_SIZE.PA
Wrap
Text File
|
1996-03-31
|
3KB
|
117 lines
{Part of Imagelib VCL/DLL Library.
Written by Jan Dekkers and Kevin Adams (c) 1995. If you are a non
registered client, you may use or alter this demo only for evaluation
purposes.
Uses ImageLib 2.2.1 Changed the callback to a function instead of a
procedure to let the user cancel out. Added:
Changed callback in version 2.21 to a function with cdecl.
using the C calling convention.
scrolling text images
Cut, Copy and Paste to/from the clipboard
Printing bitmaps}
unit U_p_size;
interface
uses
{$IFDEF DEL32}
Windows,
{$ELSE}
WinTypes,
WinProcs,
{$ENDIF}
Classes,
Graphics,
Forms,
Controls,
Buttons,
StdCtrls,
ExtCtrls,
Spin;
type
TPrintersize = class(TForm)
OKBtn: TBitBtn;
Bevel1: TBevel;
WidthSpinEdit: TSpinEdit;
HeigthSpinEdit: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
procedure FormActivate(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
private
{ Private declarations }
bwt, bht : integer;
public
{ Public declarations }
end;
var
Printersize: TPrintersize;
implementation
{$R *.DFM}
procedure TPrintersize.FormActivate(Sender: TObject);
begin
bwt:= WidthSpinEdit.Value;
bht:=HeigthSpinEdit.Value;
end;
procedure TPrintersize.RadioButton1Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht;
WidthSpinEdit.Value:=bwt;
end;
procedure TPrintersize.RadioButton2Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*2;
WidthSpinEdit.Value:=bwt*2;
end;
procedure TPrintersize.RadioButton3Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*3;
WidthSpinEdit.Value:=bwt*3;
end;
procedure TPrintersize.RadioButton4Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*4;
WidthSpinEdit.Value:=bwt*4;
end;
procedure TPrintersize.RadioButton5Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*5;
WidthSpinEdit.Value:=bwt*5;
end;
procedure TPrintersize.RadioButton6Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*6;
WidthSpinEdit.Value:=bwt*6;
end;
end.